home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / iprint / fontdemo.ba_ / fontdemo.ba
Text File  |  1994-08-03  |  2KB  |  52 lines
  1. Option Explicit
  2.  
  3. Sub GetFonts ()
  4.    'If the fonts were not loaded previously, load them now.
  5.    If FontDemoForm.FontList.ListCount = 0 Then
  6.       'Load the fonts
  7.       Call LoadFonts
  8.       'Add available sizes to the SizeList box
  9.       FontDemoForm.SizeList.AddItem "8"
  10.       FontDemoForm.SizeList.ItemData(FontDemoForm.SizeList.NewIndex) = 8
  11.       FontDemoForm.SizeList.AddItem "9"
  12.       FontDemoForm.SizeList.ItemData(FontDemoForm.SizeList.NewIndex) = 9
  13.       FontDemoForm.SizeList.AddItem "10"
  14.       FontDemoForm.SizeList.ItemData(FontDemoForm.SizeList.NewIndex) = 10
  15.       FontDemoForm.SizeList.AddItem "12"
  16.       FontDemoForm.SizeList.ItemData(FontDemoForm.SizeList.NewIndex) = 12
  17.       FontDemoForm.SizeList.AddItem "14"
  18.       FontDemoForm.SizeList.ItemData(FontDemoForm.SizeList.NewIndex) = 14
  19.       FontDemoForm.SizeList.AddItem "18"
  20.       FontDemoForm.SizeList.ItemData(FontDemoForm.SizeList.NewIndex) = 18
  21.       FontDemoForm.SizeList.AddItem "24"
  22.       FontDemoForm.SizeList.ItemData(FontDemoForm.SizeList.NewIndex) = 24
  23.       FontDemoForm.SizeList.AddItem "36"
  24.       FontDemoForm.SizeList.ItemData(FontDemoForm.SizeList.NewIndex) = 36
  25.    End If
  26. End Sub
  27.  
  28. Sub LoadFonts ()
  29.    Dim i As Integer
  30.    Dim ScreenFontCount As Integer
  31.    'Set ScreenFontCount to the total number of screen
  32.    'fonts available on the user's system.
  33.    ScreenFontCount = Screen.FontCount
  34.    'Add the available fonts to the FontList box
  35.    For i = 0 To (ScreenFontCount - 1)
  36.       'Allow the message box to flash
  37.       DoEvents
  38.       FontDemoForm.FontList.AddItem Screen.Fonts(i)
  39.    Next i
  40. End Sub
  41.  
  42. Sub UpdateLabel ()
  43.    'Update the font sample label when the user selects a new attribute.
  44.    FontDemoForm.SampleLabel.FontName = FontDemoForm.FontList.Text
  45.    FontDemoForm.SampleLabel.FontSize = Val(FontDemoForm.SizeList.Text)
  46.    FontDemoForm.SampleLabel.FontUnderline = FontDemoForm.UnderlineOption.Value
  47.    FontDemoForm.SampleLabel.FontItalic = FontDemoForm.ItalicsOption.Value
  48.    FontDemoForm.SampleLabel.FontBold = FontDemoForm.BoldOption.Value
  49.    FontDemoForm.SampleLabel.Caption = "This is a Sample of the " + FontDemoForm.FontList.Text + " font in size " + FontDemoForm.SizeList.Text
  50. End Sub
  51.  
  52.